home *** CD-ROM | disk | FTP | other *** search
/ USGS: Coal Resource Asse… Rocky Mts & Great Plains / USGS Coal Resource Assessment - Rocky Mts and Great Plains - Disc 2.iso / PROGRAM / ETC / STARTUP < prev    next >
Text File  |  1999-08-06  |  4KB  |  115 lines
  1. ' ArcView's startup file, which runs before default.apr is read.
  2. ' Check for a valid project workspace -- the directory must be writable.
  3. haveHOMEPath = false
  4. for each var in {"HOME", "TEMP", "CWD", "AVHOME"}
  5.   path = System.GetEnvVar(var)
  6.   if (path <> NIL) then
  7.     if (File.Exists(path.AsFileName) and File.IsWritable(path.AsFileName)) then
  8.       System.SetEnvVar("HOME", path)
  9.       haveHOMEPath = true
  10.       break
  11.     end
  12.   end
  13. end
  14.  
  15. if (Not haveHOMEPath) then
  16.   MsgBox.Warning("Cannot find a writable project directory. Please set environment variable HOME to a writable directory.", "")
  17. end
  18.  
  19. ' Check for a valid TEMP under Windows -- let user know if it is not set.
  20. ' Required for themes based on TXT type annotation and for editing.
  21. if (system.GetOS = #SYSTEM_OS_MSW) then
  22.   haveTEMPPath = false
  23.   for each var in {"TEMP", "HOME", "CWD", "AVHOME"}
  24.     path = System.GetEnvVar(var)
  25.     if (path <> NIL) then
  26.       if (File.Exists(path.AsFileName) and File.IsWritable(path.AsFileName)) then
  27.         System.SetEnvVar("TEMP", path)
  28.         haveTEMPPath = true
  29.         break
  30.       end
  31.     end
  32.   end
  33.   if (Not haveTEMPPath) then
  34.     MsgBox.Warning("Cannot find TEMP directory. Please set environment variable TEMP to a writable directory.", "")
  35.   end
  36. end
  37.  
  38.  
  39. MsgBox.Banner("$AVHOME/etc/title.tif".AsFileName, 1, "")
  40. av.SetName("Disc2 -- Interactive Maps")
  41.  
  42. avExt = FN.Make("$AVHOME")
  43. avExt.MergePath("ext")
  44. System.SetEnvVar("AVEXT", avExt.GetFullName)
  45.  
  46. avBin = FN.Make("$AVHOME")
  47. avBin.MergePath("bin")
  48. System.SetEnvVar("AVBIN", avBin.GetFullName)
  49.  
  50. '
  51. ' The USEREXT variable is used by the extension manager dialog. 
  52. ' That dialog looks for additional extensions in the directory specified by 
  53. ' it. You can change it's value if you want to keep additional extensions in 
  54. ' some other location.
  55. '
  56. if (System.GetEnvVar("USEREXT") = NIL) then
  57.   System.SetEnvVar("USEREXT", System.GetEnvVar("HOME"))
  58. end
  59.  
  60. '
  61. ' The default font size used by ArcView's script editor is approximately
  62. ' 14 pt (courier). That font size is identified by the enumeration element
  63. ' #SED_FONTSIZE_MEDIUM. You can use the elements #SED_FONTSIZE_SMALL
  64. ' or #SED_FONTSIZE_LARGE to make the default font size smaller (12 pt)
  65. ' or larger (14 pt).
  66. SEd.SetDefaultFontSize(#SED_FONTSIZE_SMALL)
  67.  
  68. if (system.GetOS = #SYSTEM_OS_MSW) then
  69.   Script.Make("DDEServer.Start").DoIt(NIL)
  70.  
  71.   if (system.GetOSVariant = #SYSTEM_OSVARIANT_MSW16) then
  72.  
  73.     System.SetEnvVar("AVBIN", System.GetEnvVar("AVHOME")+"\bin16")
  74.     System.SetEnvVar("AVEXT", System.GetEnvVar("AVHOME")+"\ext16")
  75.  
  76.     if (FN.FindInSystemSearchPath("winsock.dll") <> nil) then
  77.       System.LoadLibrary("$AVBIN/avrpc.dll".AsFileName)
  78.     end
  79.     System.LoadLibrary("$AVBIN/avexec.dll".AsFileName)
  80.  
  81.   else 'for WinNT and Win95
  82.  
  83.     System.SetEnvVar("AVBIN", System.GetEnvVar("AVHOME")+"\bin32")
  84.     System.SetEnvVar("AVEXT", System.GetEnvVar("AVHOME")+"\ext32")
  85.  
  86.     if (FN.FindInSystemSearchPath("wsock32.dll") <> nil) then       
  87.       System.LoadLibrary("$AVBIN/avrpc.dll".AsFileName)
  88.     end
  89.   end 'MSW16 case
  90. end 'MSW case
  91.  
  92. '
  93. ' Load the Shapes.dll
  94. if (system.GetOS = #SYSTEM_OS_MSW) then
  95.   System.LoadLibrary("$AVBIN/shapes.dll".AsFileName)
  96. end 'MSW case
  97.  
  98. '
  99. ' Load the dnsgm.dll
  100. if (File.Exists("$AVBIN/dnsgm.dll".AsFileName)) then
  101.   System.LoadLibrary("$AVBIN/dnsgm.dll".AsFileName)
  102. end
  103.  
  104. '
  105. ' Load the avimgexp.dll
  106. if (File.Exists("$AVBIN/avimgexp.dll".AsFileName)) then
  107.   System.LoadLibrary("$AVBIN/avimgexp.dll".AsFileName)
  108. end
  109.  
  110. '
  111. ' Load the avdlog.dll
  112. if (File.Exists("$AVBIN/avdlog.dll".AsFileName)) then
  113.   System.LoadLibrary("$AVBIN/avdlog.dll".AsFileName)
  114. end
  115.